home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / apps2 / biostuff.lzx / luck.opl < prev    next >
Text File  |  2004-01-13  |  1KB  |  76 lines
  1. proc LUCK:
  2. LOCAL A1,A2,A3,B1,B2,B3,C1,C2,C3,D1,D2,D3,E1,E3,F1,F3,G1,G3,H3,I3,J3,K3,L3,N3,Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8,Z9,KEY%
  3. ESCAPE ON
  4.  
  5. TOP::
  6. CLS
  7. PRINT "Day";CHR$(63)
  8. INPUT A1
  9. IF A1>9
  10.  B1=A1/10 
  11.  C1=INT(B1)
  12.  D1=10*(B1-C1)
  13. ELSE C1=0
  14.      D1=A1
  15. ENDIF
  16.  
  17. PRINT "Month";CHR$(63)
  18. INPUT A2
  19. IF A2>9
  20.  B2=A2/10
  21.  C2=INT(B2)
  22.  D2=10*(B2-C2)
  23. ELSE C2=0
  24.      D2=A2
  25. ENDIF
  26.  
  27. PRINT "Year";CHR$(63)
  28. INPUT A3
  29. B3=A3/10
  30. C3=INT(B3)
  31. D3=10*(B3-C3)
  32.  
  33. E3=A3/100
  34. F3=INT(E3)
  35. G3=INT(10*(E3-F3))
  36.  
  37. H3=A3/1000
  38. I3=INT(H3)
  39. J3=INT(10*(H3-I3))
  40.  
  41. K3=A3/10000
  42. L3=INT(K3)
  43. N3=INT(10*(K3-L3))
  44.  
  45. CLS
  46. PRINT C1;D1;"/";C2;D2;"/";N3;J3;G3;fix$(D3,0,4)
  47. Z1=C1+D1+C2+D2+N3+J3+G3+D3
  48. PRINT fix$(Z1,0,4)
  49. IF Z1>9
  50.  Z2=Z1/10
  51.  Z3=INT(Z2)
  52.  Z4=10*(Z2-Z3)
  53.  Z5=Z3+Z4
  54. ENDIF
  55. IF Z3=Z5
  56.  AT 4,2 :PRINT fix$(Z3,0,4);" ";fix$(Z4,0,4)
  57. ELSE AT 4,2 :PRINT fix$(Z3,0,4);" ";fix$(Z4,0,4);" ";fix$(Z5,0,4)
  58. ENDIF
  59. IF Z5>9
  60.  Z6=Z5/10
  61.  Z7=INT(Z6)
  62.  Z8=10*(Z6-Z7)
  63.  Z9=Z7+Z8
  64.  PRINT fix$(Z9,0,4)
  65. ENDIF
  66. MORE::
  67. PRINT"Again(Y/N)";CHR$(63)
  68. KEY%=GET
  69. IF KEY%=%y
  70.  GOTO TOP::
  71. ELSEIF KEY%=%n
  72.  RETURN
  73. ELSE GOTO MORE::
  74. ENDIF
  75. endp
  76.